home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / apcp.arc / A215A.CMD < prev    next >
Encoding:
Text File  |  1987-01-01  |  10.3 KB  |  404 lines
  1.      goto menu
  2.  
  3. dial:
  4.      isfile s8
  5.      if success
  6.           return
  7.      else
  8.      endif
  9.      clear
  10.      message "│ 215 │"
  11.      locate 0,8
  12.      message s8
  13.      locate 0,17
  14.      message "│ Philadelphia, PA            │"
  15.      locate 0,49
  16.      message s6
  17.      locate 0,77
  18.      message "│"
  19.      locate 2,0
  20.      transmit "I!"
  21.      pause 1
  22.      transmit "ATZ!"
  23.      waitfor "OK"
  24.      transmit "^E!"
  25.      waitfor "READY"
  26.      transmit "D"
  27.      transmit S8
  28.      transmit "!"
  29.      rget s9
  30.      rget s9 80 40
  31.      rget s9 40 40
  32.      rget s9 40 40
  33.  
  34. mess:
  35.      find s9 "BUSY"
  36.      if found
  37.           assign s7 "M"
  38.           return
  39.      else
  40.      endif
  41.      find s9 "ANSWER TONE"
  42.      if found
  43.           set parity none
  44.           set databits 8
  45.           clear
  46.           log open s8
  47.           alarm 2
  48.           exit
  49.      else
  50.      endif
  51.      find s9 "RINGING"
  52.      if found
  53.           rget s9
  54.           find s9 "RINGING"
  55.           if not found
  56.                goto mess
  57.           else
  58.                log open s8
  59.                message "NO ANSWER - STILL RINGING"
  60.                log close
  61.                transmit "^C^D^C"
  62.           endif
  63.      else
  64.      endif
  65. return
  66.  
  67. menu:
  68.      assign s7 " "
  69.      log close
  70.      clear
  71.      message "╔════════════════════════════════════════════════════════════════════════════╗"
  72.      message "║ A- Junewood ............... 945-4780  V- TIBBS .................. 927-6432 ║"
  73.      message "║ B- Que .................... 743-1799  W- JeBBS Jefferson Med .... 928-7503 ║"
  74.      message "║ C- Comm Net ............... 649-5422  X- WCS TBBS ............... 945-4780 ║"
  75.      message "║ D- Newtown Square ......... 356-0860  Y- Coast Nochange ......... 945-8182 ║"
  76.      message "║ E- PACS ................... 635-5227  Z- Huntingdon BBS ......... 947-5240 ║"
  77.      message "║ F- SoftShop ............... 663-1487  0- ........................ ...-.... ║"
  78.      message "║ G- Philly NoChange ........ 745-6277  1- ........................ ...-.... ║"
  79.      message "║ H- Temple University ...... 787-6843  2- ........................ ...-.... ║"
  80.      message "║ I- DBMS ................... 884-6122  3- ........................ ...-.... ║"
  81.      message "║ J- Scooter Scientific ..... 922-2541  4- ........................ ...-.... ║"
  82.      message "║ K- DE Valley Computer Club  331-0341  5- ........................ ...-.... ║"
  83.      message "║ L- Micro BBS .............. 338-6005  6- ........................ ...-.... ║"
  84.      message "║ M- Buck's Telematics ...... 493-5242  7- ........................ ...-.... ║"
  85.      message "║ N- Datanet ................ 563-9211  8- ........................ ...-.... ║"
  86.      message "║ O- Citadel BBS ............ 638-1176  9- ........................ ...-.... ║"
  87.      message "║ P- PC, Junior ............. 752-2053  @- ........................ ...-.... ║"
  88.      message "║ Q- Telematics C SIG ....... 753-8996  #- ........................ ...-.... ║"
  89.      message "║ R- Valley Forge Computer .. 783-0291  $- ........................ ...-.... ║"
  90.      message "║ S- Night Owl .............. 789-5216  %- ........................ ...-.... ║"
  91.      message "║ T- System 2 ............... 825-3205  &- ........................ ...-.... ║"
  92.      message "║ U- 8/N/1 #004 ............. 848-5728  *- ........................ ...-.... ║"
  93.      message "╚════════════════════════════════════════════════════════════════════════════╝"
  94.      locate 23,2
  95.      get s0
  96.  
  97. top:
  98.      find s0 "A"
  99.      in found
  100.           assign s8 "945-4780"
  101.           assign s6 "Junewood                   "
  102.           gosub dial
  103.      else
  104.      endif
  105.      find s0 "B"
  106.      in found
  107.           assign s8 "743-1799"
  108.           assign s6 "Que                        "
  109.           gosub dial
  110.      else
  111.      endif
  112.      find s0 "C"
  113.      in found
  114.           assign s8 "649-5422"
  115.           assign s6 "Comm Net                   "
  116.           gosub dial
  117.      else
  118.      endif
  119.      find s0 "D"
  120.      in found
  121.           assign s8 "356-0860"
  122.           assign s6 "Newtown Square             "
  123.           gosub dial
  124.      else
  125.      endif
  126.      find s0 "E"
  127.      in found
  128.           assign s8 "635-5227"
  129.           assign s6 "PACS                       "
  130.           gosub dial
  131.      else
  132.      endif
  133.      find s0 "F"
  134.      in found
  135.           assign s8 "663-1487"
  136.           assign s6 "Softshop                   "
  137.           gosub dial
  138.      else
  139.      endif
  140.      find s0 "G"
  141.      in found
  142.           assign s8 "745-6277"
  143.           assign s6 "Philly Nochange            "
  144.           gosub dial
  145.      else
  146.      endif
  147.      find s0 "H"
  148.      in found
  149.           assign s8 "787-6843"
  150.           assign s6 "Temple University          "
  151.           gosub dial
  152.      else
  153.      endif
  154.      find s0 "I"
  155.      in found
  156.           assign s8 "884-6122"
  157.           assign s6 "DBMS                       "
  158.           gosub dial
  159.      else
  160.      endif
  161.      find s0 "J"
  162.      in found
  163.           assign s8 "922-2541"
  164.           assign s6 "Scooter Scientific         "
  165.           gosub dial
  166.      else
  167.      endif
  168.      find s0 "K"
  169.      in found
  170.           assign s8 "331-0341"
  171.           assign s6 "DE Valley Computer Club    "
  172.           gosub dial
  173.      else
  174.      endif
  175.      find s0 "L"
  176.      in found
  177.           assign s8 "338-6005"
  178.           assign s6 "Micro BBS                  "
  179.           gosub dial
  180.      else
  181.      endif
  182.      find s0 "M"
  183.      in found
  184.           assign s8 "493-5242"
  185.           assign s6 "Buck's Telematics          "
  186.           gosub dial
  187.      else
  188.      endif
  189.      find s0 "N"
  190.      in found
  191.           assign s8 "563-9211"
  192.           assign s6 "Datanet                    "
  193.           gosub dial
  194.      else
  195.      endif
  196.      find s0 "O"
  197.      in found
  198.           assign s8 "638-1176"
  199.           assign s6 "Citadel BBS                "
  200.           gosub dial
  201.      else
  202.      endif
  203.      find s0 "P"
  204.      in found
  205.           assign s8 "752-2053"
  206.           assign s6 "PC, Jr.                    "
  207.           gosub dial
  208.      else
  209.      endif
  210.      find s0 "Q"
  211.      in found
  212.           assign s8 "753-8996"
  213.           assign s6 "Telematics C SIG           "
  214.           gosub dial
  215.      else
  216.      endif
  217.      find s0 "R"
  218.      in found
  219.           assign s8 "783-0291"
  220.           assign s6 "Valley Forge Computer Club "
  221.           gosub dial
  222.      else
  223.      endif
  224.      find s0 "S"
  225.      in found
  226.           assign s8 "789-5216"
  227.           assign s6 "Night Owl                  "
  228.           gosub dial
  229.      else
  230.      endif
  231.      find s0 "T"
  232.      in found
  233.           assign s8 "825-3205"
  234.           assign s6 "System 2                   "
  235.           gosub dial
  236.      else
  237.      endif
  238.      find s0 "U"
  239.      in found
  240.           assign s8 "848-5728"
  241.           assign s6 "8/N/1 #004                 "
  242.           gosub dial
  243.      else
  244.      endif
  245.      find s0 "V"
  246.      in found
  247.           assign s8 "927-6432"
  248.           assign s6 "TIBBS                      "
  249.           gosub dial
  250.      else
  251.      endif
  252.      find s0 "W"
  253.      in found
  254.           assign s8 "928-7503"
  255.           assign s6 "JeBBS Jefferson Medical    "
  256.           gosub dial
  257.      else
  258.      endif
  259.      find s0 "X"
  260.      in found
  261.           assign s8 "945-4780"
  262.           assign s6 "WCS TBBS                   "
  263.           gosub dial
  264.      else
  265.      endif
  266.      find s0 "Y"
  267.      in found
  268.           assign s8 "945-8182"
  269.           assign s6 "Coast Nochange             "
  270.           gosub dial
  271.      else
  272.      endif
  273.      find s0 "Z"
  274.      in found
  275.           assign s8 "947-5240"
  276.           assign s6 "Huntingdon BBS             "
  277.           gosub dial
  278.      else
  279.      endif
  280.      goto speedup                      ; Skip Empty Elements
  281.      find s0 "0"
  282.      if found
  283.           assign s8 "   -    "
  284.           assign s6 "                           "
  285.           gosub dial
  286.      else
  287.      endif
  288.      find s0 "1"
  289.      if found
  290.           assign s8 "   -    "
  291.           assign s6 "                           "
  292.           gosub dial
  293.      else
  294.      endif
  295.      find s0 "2"
  296.      if found
  297.           assign s8 "   -    "
  298.           assign s6 "                           "
  299.           gosub dial
  300.      else
  301.      endif
  302.      find s0 "3"
  303.      if found
  304.           assign s8 "   -    "
  305.           assign s6 "                           "
  306.           gosub dial
  307.      else
  308.      endif
  309.      find s0 "4"
  310.      if found
  311.           assign s8 "   -    "
  312.           assign s6 "                           "
  313.           gosub dial
  314.      else
  315.      endif
  316.      find s0 "5"
  317.      if found
  318.           assign s8 "   -    "
  319.           assign s6 "                           "
  320.           gosub dial
  321.      else
  322.      endif
  323.      find s0 "6"
  324.      if found
  325.           assign s8 "   -    "
  326.           assign s6 "                           "
  327.           gosub dial
  328.      else
  329.      endif
  330.      find s0 "7"
  331.      if found
  332.           assign s8 "   -    "
  333.           assign s6 "                           "
  334.           gosub dial
  335.      else
  336.      endif
  337.      find s0 "8"
  338.      if found
  339.           assign s8 "   -    "
  340.           assign s6 "                           "
  341.           gosub dial
  342.      else
  343.      endif
  344.      find s0 "9"
  345.      if found
  346.           assign s8 "   -    "
  347.           assign s6 "                           "
  348.           gosub dial
  349.      else
  350.      endif
  351.      find s0 "@"
  352.      if found
  353.           assign s8 "   -    "
  354.           assign s6 "                           "
  355.           gosub dial
  356.      else
  357.      endif
  358.      find s0 "#"
  359.      if found
  360.           assign s8 "   -    "
  361.           assign s6 "                           "
  362.           gosub dial
  363.      else
  364.      endif
  365.      find s0 "$"
  366.      if found
  367.           assign s8 "   -    "
  368.           assign s6 "                           "
  369.           gosub dial
  370.      else
  371.      endif
  372.      find s0 "%"
  373.      if found
  374.           assign s8 "   -    "
  375.           assign s6 "                           "
  376.           gosub dial
  377.      else
  378.      endif
  379.      find s0 "&"
  380.      if found
  381.           assign s8 "   -    "
  382.           assign s6 "                           "
  383.           gosub dial
  384.      else
  385.      endif
  386.      find s0 "*"
  387.      if found
  388.           assign s8 "   -    "
  389.           assign s6 "                           "
  390.           gosub dial
  391.      else
  392.      endif
  393.  
  394. speedup:
  395.      find s7 "M"
  396.      if found
  397.           assign s7 " "
  398.           goto top
  399.      else
  400.      endif
  401.      message "All Numbers Connected - Or Did Not Answer"
  402.      alarm 2
  403.      exit
  404.